ASP ile ilgili sorular
Benim yapamadığım iki tane soru var.
Soru 1: 40 elemanlı bir diziden pozitif 2'ye bölünenler, pozitif 2'ye bölünemeyenler, negatif 2'ye bölünenler, negatif 2'ye bölünemeyenler şeklinde 4 tane dizi oluşturup ve bu dizi elemanlarının ortalamasını bir tablo içinde gösteren programı yazınız.
Soru 2: Bu soru ise çarpım tablosu ile ilgili. Çift olan sayılar kırmızı ile yazılacak.
Şimdiden teşekkür ederim :)
Mesaj 10.05.2013 18:57:28 tarihinde AQuaN tarafından düzenlenmiştir.
Sorulara bakıp ilgilenen arkadaşlar varmış.Ilginiz için teşekkür ederim.Soruların cevapları bulunmuştur.Ben de burada paylaşmak istiyorum.
1.sorunun cevabı:
<% dizi=array(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,-1,-2,-3,-4,-5,-6,-7,-8,-9,-10,-11,-12,-13,-14,-15,-16,-17,-18,-19,-20)%> <%pozitif=filter(dizi,"-",0)%> <%top=0%> <%sayac=0%> <%for i=lbound(pozitif) to ubound(pozitif)%>
<%a=pozitif(i)%> <% if a mod 2=0 then%> <%sayac=sayac+1%> <%top=top+a%> <%top=0%> <%sayac=0%> <%for i=lbound(pozitif) to ubound(pozitif)%> <%b=pozitif(i)%> <% if b mod 2<>0 then%> <%sayac=sayac+1%> <%top=top+b%> <%negatif=filter(dizi,"-")%> <%top=0%> <%sayac=0%> <%for i=lbound(negatif) to ubound(negatif)%> <%c=negatif(i)%> <% if c mod 2=0 then%> <%sayac=sayac+1%> <%top=top+c%> <%top=0%> <%sayac=0%> <%for i=lbound(negatif) to ubound(negatif)%> <%d=negatif(i)%> <% if d mod 2<>0 then%> <%sayac=sayac+1%> <%top=top+d%>
| <%response.Write("Dizimizdeki Pozitif 2'ye bolunenler")%> |
<%=a%> <%end if%> <%next%> <%o=top/sayac%> |
<%response.Write("Ortalama= ")%><%=o%> |
| <%response.Write("Dizimizdeki Pozitif 2'ye bolunemeyenler")%> |
<%=b%> <%end if%> <%next%> <%o=top/sayac%> |
<%response.Write("Ortalama= ")%><%=o%> |
| <%response.Write("Dizimizdeki Negatif 2'ye bolunenler")%> |
<%=c%> <%end if%> <%next%> <%o=top/sayac%> |
<%response.Write("Ortalama= ")%><%=o%> |
| <%response.Write("Dizimizdeki Negatif 2'ye bolunemeyenler")%> |
<%=d%> <%end if%> <%next%> <%o=top/sayac%> |
<%response.Write("Ortalama= ")%><%=o%> |
2. sorunun cevabı:
| <% for i=1 to 1 step 1%> <% for v=1 to 10 step 1%> <% a=v mod 2 if a=0 then%> <%response.Write(i)%> <%response.Write("x")%> <%response.Write(v)%> <%response.Write("=")%> <%response.Write(i*v)%> <% else response.Write(i) response.Write("x") response.Write(v) response.Write("=") response.Write(i*v) end if %> <%next%> <%next%> |
<% for i=2 to 2 step 1%> <% for v=1 to 10 step 1%> <% a=v mod 2 if a=0 then %> <%response.Write(i) response.Write("x") response.Write(v) response.Write("=") response.Write(i*v)%> <% else response.Write(i) response.Write("x") response.Write(v) response.Write("=") response.Write(i*v) end if%> <%next%> <%next%> |
<% for i=3 to 3 step 1%> <% for v=1 to 10 step 1%> <%a=v mod 2 if a=0 then%> <%response.Write(i) response.Write("x") response.Write(v) response.Write("=") response.Write(i*v)%> <%else response.Write(i) response.Write("x") response.Write(v) response.Write("=") response.Write(i*v)end if%> <%next%> <%next%> |
<% for i=4 to 4 step 1%> <% for v=1 to 10 step 1%> <%a=v mod 2 if a=0 then%> <% response.Write(i) response.Write("x") response.Write(v) response.Write("=") response.Write(i*v)%> <% else response.Write(i) response.Write("x") response.Write(v) response.Write("=") response.Write(i*v)end if%> <%next%> <%next%> |
<% for i=5 to 5 step 1%> <% for v=1 to 10 step 1%> <% a=v mod 2 if a=0 then%> <% response.Write(i) response.Write("x") response.Write(v) response.Write("=") response.Write(i*v)%> <% else response.Write(i) response.Write("x") response.Write(v) response.Write("=") response.Write(i*v)end if%> <%next%> <%next%> |
| <% for i=6 to 6 step 1%> <% for v=1 to 10 step 1%> <% a=v mod 2 if a=0 then%> <% response.Write(i) response.Write("x") response.Write(v) response.Write("=") response.Write(i*v)%> <% else response.Write(i) response.Write("x") response.Write(v) response.Write("=") response.Write(i*v)end if%> <%next%> <%next%> |
<% for i=7 to 7 step 1%> <% for v=1 to 10 step 1%> <% a=v mod 2 if a=0 then%> <% response.Write(i) response.Write("x") response.Write(v) response.Write("=") response.Write(i*v)%> <% else response.Write(i) response.Write("x") response.Write(v) response.Write("=") response.Write(i*v)end if%> <%next%> <%next%> |
<% for i=8 to 8 step 1%> <% for v=1 to 10 step 1%> <% a=v mod 2 if a=0 then%> <% response.Write(i) response.Write("x") response.Write(v) response.Write("=") response.Write(i*v)%> <% else response.Write(i) response.Write("x") response.Write(v) response.Write("=") response.Write(i*v)end if%> <%next%> <%next%> |
<% for i=9 to 9 step 1%> <% for v=1 to 10 step 1%> <% a=v mod 2 if a=0 then%> <% response.Write(i) response.Write("x") response.Write(v) response.Write("=") response.Write(i*v)%> <% else response.Write(i) response.Write("x") response.Write(v) response.Write("=") response.Write(i*v)end if%> <%next%> <%next%> |
<% for i=10 to 10 step 1%> <% for v=1 to 10 step 1%> <% a=v mod 2 if a=0 then%> <% response.Write(i) response.Write("x") response.Write(v) response.Write("=") response.Write(i*v)%> <% else response.Write(i) response.Write("x") response.Write(v) response.Write("=") response.Write(i*v)end if%> <%next%> <%next%> |
Mesaj 19.05.2013 17:07:16 tarihinde Rserit tarafından düzenlenmiştir.
Arkadaşlar kusura bakmayın lütfen,kodlar birazcık karıştı galiba.Çarpım tablosu da biraz komik mi oldu ne.
Teşekkürler. Epey bir karışık gözüküyor 
Bence bu sorudan kaynaklanıyor
Konuyu önceden görseydim daha önceden yardım edebilirdim, pek bildiğim için söylemiyorum ancak önerilerim olabilirdi. Görüyorum ki soru çözülmüş. Teşekkürler.
Evet sorular çözüldü ama burası html kodlarıyla yapılıyor sanırım.Ben de asp kodlarıyla yazınca biraz karıştı.
Tabloda bir problem göremiyorum. Çok karışık değil, sadece biraz daha fazla gözatılması gerekiyor
Sorunlar çözülmüş, eline sağlık.
Bunlar ise çıktıları. Kodları tam gösteremedim ama görünüşlerinin resimlerini çektim.
Mesaj 20.05.2013 13:43:22 tarihinde AQuaN tarafından düzenlenmiştir.
Mesaj 20.05.2013 13:43:41 tarihinde AQuaN tarafından düzenlenmiştir.